home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003 March / EnterCD 03_2003.iso / Multimedia / IntelliCAD 2001 3.3 / data1.cab / Program_DLLs / DCL.dll / DCL / 137 < prev   
Encoding:
Text File  |  2003-01-05  |  9.2 KB  |  406 lines
  1.  
  2. //----- Styles of clusters.
  3.  
  4. row : cluster {
  5.     horizontal_margin = none;
  6.     vertical_margin = none;
  7.     children_alignment = centered;
  8. }
  9.  
  10. column : cluster {
  11.     layout = vertical;
  12.     horizontal_margin = none;
  13.     vertical_margin = none;
  14. }
  15.  
  16. boxed_row : cluster {
  17.     label = " ";
  18.     boxed = true;
  19.     children_alignment = centered;
  20. }
  21.  
  22. boxed_column : cluster {
  23.     layout = vertical;
  24.     label = " ";
  25.     boxed = true;
  26. }
  27.  
  28. //----- Styles of radio clusters.
  29.  
  30. radio_row : radio_cluster {
  31.     horizontal_margin = none;
  32.     vertical_margin = none;
  33.     children_alignment = centered;
  34. }
  35.  
  36. radio_column : radio_cluster {
  37.     layout = vertical;
  38.     horizontal_margin = none;
  39.     vertical_margin = none;
  40. }
  41.  
  42. boxed_radio_row : radio_cluster {
  43.     label = " ";
  44.     boxed = true;
  45.     children_alignment = centered;
  46. }
  47.  
  48. boxed_radio_column : radio_cluster {
  49.     layout = vertical;
  50.     label = " ";
  51.     boxed = true;
  52. }
  53.  
  54. //----- Horizontal and vertical blocks of running text.
  55.  
  56. concatenation : cluster {
  57.     fixed_width = true;
  58.     fixed_height = true;
  59.     children_alignment = centered;
  60. }
  61.  
  62. paragraph : cluster {
  63.     layout = vertical;
  64.     fixed_height = true;
  65. }
  66.  
  67. text_part : text {
  68.     horizontal_margin = none;
  69.     vertical_margin = none;
  70. }
  71.  
  72. text_25 : text {
  73.     width = 25;
  74. }
  75.  
  76. //----- Common spacers.
  77.  
  78. spacer_0 : spacer {
  79.     height = 0;
  80.     width = 0;
  81.     horizontal_margin = none;
  82.     vertical_margin = none;
  83. }
  84.  
  85. spacer_1 : spacer {
  86.     height = 1;
  87.     width = 1;
  88.     horizontal_margin = none;
  89.     vertical_margin = none;
  90. }
  91.  
  92. //----- The normal default widget.
  93.  
  94. default_button : button {
  95.         is_default      = true;
  96. }
  97.  
  98. //----- Standard prototype for making consistent "dialog retirement buttons".
  99. //      Used below for the predefined retirement buttons, and for user-defined
  100. //      dialogs that need retirement buttons with specialized verbs.
  101.  
  102. retirement_button : button {
  103.         fixed_width     = true;
  104.         width           = 8;
  105.         alignment = centered;
  106. }
  107.  
  108. //----- Standard dialog retirement buttons.  Unless one is building a dialog
  109. //      retirement subassembly containing specialized verbs, these will 
  110. //      normally not be used directly by DCL code outside of base.dcl; use
  111. //      the pre-built subassemblies in the next section.
  112.  
  113. ok_button : retirement_button {
  114.         label           = "  OK  ";
  115.         key             = "accept";
  116.         is_default      = true;
  117. }
  118.  
  119. cancel_button : retirement_button {
  120.         label           = "Cancel";
  121.         key             = "cancel";
  122.         is_cancel       = true;
  123. }
  124.  
  125. help_button : retirement_button {
  126.         label           = "&Help";
  127.         key             = "help";
  128.         is_help         = true;
  129. }
  130.  
  131. info_button : retirement_button {
  132.         label           = "&Info...";
  133.         key             = "info";
  134. }
  135.  
  136. //----- Pre-built arrays of dialog bottom-line buttons.
  137.  
  138. ok_only : column {
  139.     fixed_width = true;
  140.     alignment = centered;
  141.     : ok_button {
  142.         is_cancel = true;
  143.     }
  144. }
  145.  
  146. ok_cancel : column {
  147.     : row {
  148.         fixed_width = true;
  149.         alignment = centered;
  150.         ok_button;
  151.         : spacer { width = 4; }
  152.         cancel_button;
  153.     }
  154. }
  155.  
  156. ok_cancel_help : column {
  157.     : row {
  158.         fixed_width = true;
  159.         alignment = centered;
  160.         ok_button;
  161.         : spacer { width = 4; }
  162.         cancel_button;
  163.         : spacer { width = 4; }
  164.         help_button;
  165.     }
  166. }
  167.  
  168. ok_cancel_help_info : column {
  169.     : row {
  170.         fixed_width = true;
  171.         alignment = centered;
  172.         ok_button;
  173.         : spacer { width = 4; }
  174.         cancel_button;
  175.         : spacer { width = 4; }
  176.         help_button;
  177.         : spacer { width = 4; }
  178.         info_button;
  179.     }
  180. }
  181.  
  182. //----- Error reporting tiles.
  183.  
  184. errtile : text {
  185.         label = "";
  186.         key = "error";
  187.         width = 35;                   // must be long enough to hold error msgs
  188.         is_error_tile = true;
  189. }
  190.  
  191. // A custer consisting of OK, Cancel, and Help on one line with the error tile
  192. //    below.
  193.  
  194. ok_cancel_help_errtile : column {
  195.     ok_cancel_help;
  196.     errtile;
  197. }
  198.  
  199. // The same thing without the Help button for subdialogues that have no help
  200. //    available.
  201.  
  202. ok_cancel_err : column {
  203.     ok_cancel;
  204.     errtile;
  205. }
  206.  
  207. //----- Currently, the only dcl setting is the audit_level which controls the
  208. //  level of semantic error checking applied during a load_dialog operation.
  209. //      (0 = none, 1 = errors, 2 = warnings, 3 = hints)
  210. // See AutoCAD's README for details.
  211. default_dcl_settings : tile {
  212.     audit_level = 1;
  213. }
  214.  
  215. //----- Miscellaneous parts used by ACAD.DCL (AutoCAD) & ACLT.DCL (AutoCAD LT).
  216.  
  217. image_block : image {
  218.         key = "show_image";
  219.         height = 1;
  220.         width = 1;
  221. }
  222.  
  223. icon_image : image_button {
  224.         color                   = 0;
  225.         width                   = 12;
  226.         aspect_ratio            = 0.66;
  227.         allow_accept            = true;
  228.         fixed_height            = true;
  229.         fixed_width             = true;
  230. }
  231.  
  232. edit12_box : edit_box {
  233.         edit_width = 12;
  234.         edit_limit = 148;    // 18 * 8 (CIF/MIF size)
  235. }
  236.  
  237. edit32_box : edit_box {
  238.         edit_width = 32;
  239.         edit_limit = 2048;   // MAX_VALUE (256 * 8 (CIF/MIF size))
  240. }
  241.  
  242. //  The following are for the color-selection dialogs
  243.  
  244. swatch : image_button {
  245.     vertical_margin = none;
  246.     horizontal_margin = none;
  247.     fixed_height = true;
  248.     fixed_width = true;
  249.     height = 1.5;
  250.     width = 3;
  251.         allow_accept = true;
  252. }
  253.  
  254. color_palette_1_7 : row {             // Standard colors 1-7
  255.     : swatch { color = 001; key = "001"; }
  256.     : swatch { color = 002; key = "002"; }
  257.     : swatch { color = 003; key = "003"; }
  258.     : swatch { color = 004; key = "004"; }
  259.     : swatch { color = 005; key = "005"; }
  260.     : swatch { color = 006; key = "006"; }
  261.     : swatch { color = 007; key = "007"; }
  262. }
  263.  
  264. color_palette_1_9 : row {             // Standard colors, plus 8 and 9
  265.     color_palette_1_7;
  266.     : swatch { color = 008; key = "008"; }
  267.     : swatch { color = 009; key = "009"; }
  268. }
  269.  
  270. color_palette_0_9 : row {             // Standard colors, plus 0, 8, and 9
  271.     : swatch { color = 000; key = "000"; }
  272.     color_palette_1_9;
  273. }
  274.  
  275. color_palette_250_255 : row {         // Grey shades 250-255
  276.     : swatch { color = 250; key = "250"; }
  277.     : swatch { color = 251; key = "251"; }
  278.     : swatch { color = 252; key = "252"; }
  279.     : swatch { color = 253; key = "253"; }
  280.     : swatch { color = 254; key = "254"; }
  281.     : swatch { color = 255; key = "255"; }
  282. }
  283.  
  284. std_rq_color :column{
  285.     :column {
  286.         :boxed_row {
  287.             fixed_width = true;
  288.             label = "Standard Colors";
  289.             color_palette_1_9;
  290.         }
  291.         :row {
  292.             :boxed_row {
  293.                 fixed_width = true;
  294.                 label = "Gray Shades";
  295.                 color_palette_250_255;
  296.             }
  297.             :boxed_row {
  298.                 fixed_width = true;
  299.                 label = "Logical Colors";
  300.                 :button {
  301.                     label = "BY&LAYER";
  302.                     key = "256";
  303.                                 }
  304.                 :button {
  305.                     label = "BY&BLOCK";
  306.                     key = "000";
  307.                 }
  308.             }
  309.         }
  310.     }
  311.     :boxed_column {
  312.         label = "Full Color Palette";
  313.         :image_button{
  314.             key = "hiside";
  315.             alignment = centered;
  316.             width = 40;
  317.             height = 4;
  318.                         allow_accept = true;
  319.             is_enabled = false;
  320.         }
  321.         :image_button{
  322.             alignment = centered;
  323.             key = "loside";
  324.             width = 40;
  325.             height = 4;
  326.                         allow_accept = true;
  327.             is_enabled = false;
  328.         }
  329.     }
  330.     :row {
  331.         fixed_width = true;
  332.         alignment = centered;
  333.         children_alignment = bottom;
  334.         :edit12_box {
  335.             label = "Color:";
  336.             key = "color_edit";
  337.             allow_accept = true;
  338.         }
  339.         :swatch {
  340.             key = "color_image";
  341.         }
  342.     }
  343.     ok_cancel_help_errtile;
  344. }
  345.  
  346. //  The preceding are for color-selection dialogs
  347.  
  348.  
  349. //  Top and bottom sub-assemblies for the files dialogue
  350. files_topdf : column {
  351.     : edit_box {
  352.         key = "pedit";
  353.         label = "&Pattern:";
  354.         edit_width = 35;
  355.     }
  356.     : row {
  357.         : text {
  358.             label = "Directory:";
  359.         }
  360.         : text {
  361.             key = "dirtext";
  362.             width = 35;
  363.         }
  364.     }
  365. }
  366.  
  367. files_bottomdf : column {
  368.     : edit_box {
  369.         key = "fedit";
  370.         label = "&File:";
  371.         allow_accept = true;
  372.     }
  373.     ok_cancel;
  374.     errtile;
  375. }
  376.  
  377. fcf_ibut : image_button {
  378.     horizontal_margin = none;
  379.     width = 3.5;
  380.     height = 1.2;
  381.     color        = 0;
  382.     alignment = bottom;
  383. }
  384.  
  385. fcf_ebox : edit_box {
  386.     horizontal_margin = none;
  387.     edit_width = 7;
  388.     fixed_width = true;
  389.     alignment = bottom;
  390. }
  391.  
  392. fcf_ebox1 : edit_box {
  393.     horizontal_margin = none;
  394.     edit_width = 3;
  395.     edit_limit = 3;
  396.     fixed_width = true;
  397.     alignment = bottom;
  398. }
  399.  
  400. fcf_ibut1 : image_button {
  401.     width        = 5.0;
  402.     aspect_ratio = 0.66;
  403.     color        = 0;
  404.     allow_accept = true;
  405. }
  406.